Namespace Comm
    <ObfuscationAttribute(Exclude:=True, ApplyToMembers:=True)> _
    Public Class UsbCommunicationStatusEventArgs
        Inherits System.EventArgs

        Private m_Description As String = ""
        Private m_IsConnected As Boolean = False
        Private m_IsInitialised As Boolean = False

        Sub New(ByVal Message As String, ByVal IsConnected As Boolean, ByVal IsInitialised As Boolean)
            m_Description = Message
            m_IsConnected = IsConnected
            m_IsInitialised = IsInitialised
        End Sub
        Public ReadOnly Property IsConnected() As Boolean
            Get
                Return m_IsConnected
            End Get
        End Property
        Public ReadOnly Property IsInitialised() As Boolean
            Get
                Return m_IsInitialised
            End Get
        End Property
        Public ReadOnly Property Message() As String
            Get
                Return m_Description
            End Get
        End Property

    End Class

End Namespace
